From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 20 Jul 2007 06:54:40 +0000 (+0000)
Subject: (vc-hg-workfile-unchanged-p): New function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18855^2~1912
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=727bdea1064ff35f32e3055ba20d807625e5fe05;p=emacs.git

(vc-hg-workfile-unchanged-p): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4aeeddf5633..74984f03789 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-hg.el (vc-hg-workfile-unchanged-p): New function.
+
 2007-07-19  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-hg.el (vc-hg-registered): Replace if with when.
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 8df01a2cc60..946a47e8f72 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -45,7 +45,7 @@
 ;; * workfile-version (file)                   OK
 ;; - latest-on-branch-p (file)                 ??
 ;; * checkout-model (file)                     OK
-;; - workfile-unchanged-p (file)               ??
+;; - workfile-unchanged-p (file)               OK
 ;; - mode-line-string (file)                   NOT NEEDED
 ;; - dired-state-info (file)                   OK
 ;; STATE-CHANGING FUNCTIONS
@@ -392,6 +392,10 @@ REV is the revision to check out into WORKFILE."
 (defun vc-hg-checkout-model (file)
   'implicit)
 
+;; Modelled after the similar function in vc-bzr.el
+(defun vc-hg-workfile-unchanged-p (file)
+  (eq 'up-to-date (vc-hg-state file)))
+
 (defun vc-hg-dired-state-info (file)
   "Hg-specific version of `vc-dired-state-info'."
   (let ((hg-state (vc-state file)))